<?php
/**
 *  php/taskman_functions.php
 *
 * Function which extend taskman.php, current a email-to-fax gateway
 *
 *
 * Copyright (C) 2016 Raymond Magauran <magauran@MedFetch.com>
 *
 * LICENSE: This program is free software: you can redistribute it and/or modify
 *  it under the terms of the GNU Affero General Public License as
 *  published by the Free Software Foundation, either version 3 of the
 *  License, or (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU Affero General Public License for more details.
 *
 *  You should have received a copy of the GNU Affero General Public License
 *  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 *
 * @package OpenEMR
 * @author Ray Magauran <magauran@MedFetch.com>
 * @link http://www.open-emr.org
 */

use OpenEMR\Services\FacilityService;

$facilityService = new FacilityService();

/**
 *  This function creates a task as a record in the form_taskman DB_table.
 */
function make_task($ajax_req)
{
    global $send;
    $from_id    = $ajax_req['from_id'];
    $to_id      = $ajax_req['to_id'];
    $patient_id = $ajax_req['pid'];
    $doc_type   = $ajax_req['doc_type'];
    $doc_id     = $ajax_req['doc_id'];
    $enc        = $ajax_req['enc'];

    $query      = "SELECT * FROM users WHERE id=?";
    $to_data    =  sqlQuery($query, array($to_id));
    $filename   = "Fax_".$encounter."_".$to_data['lname'].".pdf";

    $query = "SELECT * FROM documents where encounter_id=? and foreign_id=? and url like ?";
    $doc = sqlQuery($query, array($encounter,$pid,'%'.$filename.'%' ));


    $sql = "SELECT * from form_taskman where FROM_ID=? and TO_ID=? and PATIENT_ID=? and ENC_ID=?";
    $task = sqlQuery($sql, array($from_id,$to_id,$patient_id,$enc));

    if (!$doc['ID'] && $task['ID'] && ($task['REQ_DATE'] < (time() - 60))) {
        // The task was requested more than a minute ago (prevents multi-clicks from "re-generating" the PDF),
        // but the document was deleted (to redo it)...
        // Delete the task, recreate the task, and send the newly made PDF.
        $sql = "DELETE from form_taskman where FROM_ID=? and TO_ID=? and PATIENT_ID=? and ENC_ID=?";
        $task = sqlQuery($sql, array($from_id,$to_id,$patient_id,$enc));
    }

    if ($task['ID'] && $task['COMPLETED'] =='2') {
        $send['comments'] = xlt('This fax has already been sent.')." ".
                            xlt('If you made changes and want to re-send it, delete the original (in Communications) and try again.')." ".
                            xlt('Filename').": ".$filename;
        echo json_encode($send);
        exit;
    } else if ($task['ID'] && $task['COMPLETED'] =='1') {
        if ($task['DOC_TYPE'] == 'Fax') {
            $send['DOC_link'] = "<a href='".$webroot."/openemr/controller.php?document&view&patient_id=".$task['PATIENT_ID']."&doc_id=".$task['DOC_ID']."'
								target='_blank' title='".xla('View the Summary Report sent to Fax Server.')."'>
								<i class='fa fa-file-pdf-o fa-fw'></i></a>
								<i class='fa fa-repeat fa-fw'
									onclick=\"top.restoreSession(); create_task('".attr($pat_data['ref_providerID'])."','Fax-resend','ref'); return false;\">
									</i>
							";
                            //add a resend option.
            $send['comments'] = xlt('This fax has already been sent.');
            echo json_encode($send);
            exit;
        } else if ($task['DOC_TYPE'] == "Fax-resend") {
            //we need to resend this fax????
            //You can only resend from here once.
            $send['comments'] = xlt('To resend, delete the file from Communications and try again.');
            echo json_encode($send);
            update_taskman($task, 'refaxed', '2');
            exit;
        } else { //DOC_TYPE is a Fax or Report
            $send['comments'] = xlt('Currently working on making this document')."...\n";
        }
    } else if (!$task['ID']) {
        $sql = "INSERT into form_taskman
				(REQ_DATE, FROM_ID,  TO_ID,  PATIENT_ID,  DOC_TYPE,  DOC_ID,  ENC_ID) VALUES
				(NOW(), '$from_id', '$to_id','$patient_id','$doc_type','$doc_id','$enc')";
        sqlQuery($sql);
    } else {
        $send['comments'] = xlt('Currently working on making this document')."...\n";
    }
}

/**
 *  This function reads and processes an order (or task).
 */
function process_tasks($task)
{
    global $send;
    /**
     *  First see if the doc_ID exists
     *  if not we need to create this
     */
    $task = make_document($task);
    update_taskman($task, 'created', '1');
    if ($task['DOC_TYPE'] == 'Fax') {
        deliver_document($task);
    }

    update_taskman($task, 'completed', '1');

    if ($task['DOC_TYPE'] == "Fax") {
        //now return any objects you need to Eye Form
        $send['DOC_link'] = "<a href='".$webroot."/openemr/controller.php?document&view&patient_id=".$task['PATIENT_ID']."&doc_id=".$task['DOC_ID']."'
								target='_blank' title=".xlt('Report was faxed. Click to view.').">
								<i class='fa fa-file-pdf-o fa-fw'></i>
							</a>";
                            //if we want a "resend" icon, add it here.
    }

    return $send;
}

 /**
 *  This function updates the taskman record in the form_taskman table.
 */
function update_taskman($task, $action, $value)
{
    global $send;
    if ($action == 'created') {
        $sql = "UPDATE form_taskman set DOC_ID=?,COMMENT=concat('Created: ',NOW(),'\n') where ID=?";
        sqlQuery($sql, array($task['DOC_ID'],$task['ID']));
        $send['comments'] .="Documented created.\n";
    }

    if ($action == 'completed') {
        $sql = "UPDATE form_taskman set DOC_ID=?,COMPLETED =?,COMPLETED_DATE=NOW(),COMMENT=concat(COMMENT,'Completed: ', NOW(),'\n') where ID=?";
        sqlQuery($sql, array($task['DOC_ID'],$value,$task['ID']));
        $send['comments'] .="Task completed.\n";
    }

    if ($action == 'refaxed') {
        $sql = "UPDATE form_taskman set DOC_ID=?,COMPLETED =?,COMPLETED_DATE=NOW(),COMMENT=concat(COMMENT,'Refaxed: ', NOW(),'\n') where ID=?";
        sqlQuery($sql, array($task['DOC_ID'],$value,$task['ID']));
        $send['comments'] .="Ok, we resent it to the Fax Server.\n";
    }
}


/**
 *  This function delivers a document to the intended recipient.
 *  Will need to test for Hylafax.
 *  Will need code for Direct messaging.
 *  Will need expansion to other methods of delivery.
 *  Works for email-to-fax.
 *      To be HIPPA compliant fax address must be behind secure firewall with this server.
 *      Some suggest the fax server to fax machine portion of efaxing is not HIPPA compliant, no matter how it is done.
 *      Thus faxing is not HIPPA compliant, and if that affects you, don't deliver this way.
 */
function deliver_document($task)
{
    global $facilityService;

    //use PHPMAILER
    $query          = "SELECT * FROM users WHERE id=?";
    $to_data        =  sqlQuery($query, array($task['TO_ID']));
    $from_data      =  sqlQuery($query, array($task['FROM_ID']));
    $facility_data  =  $facilityService->getPrimaryBillingLocation();
    $query          = "SELECT * FROM patient_data where pid=?";
    $patientData    =  sqlQuery($query, array($task['PATIENT_ID']));

    $from_fax   = preg_replace("/[^0-9]/", "", $facility_data['fax']);
    $from_name  = $from_data['fname']." ".$from_data['lname'];
    $from_fac   = $from_facility['name'];
    $to_fax     = preg_replace("/[^0-9]/", "", $to_data['fax']);

    $to_name    = $to_data['fname']." ".$to_data['lname'];
    $pt_name    = $patientData['fname'].' '.$patientData['lname'];

    $encounter = $task['ENC_ID'];

    $mail = new MyMailer();

    $to_email= $to_fax."@".$GLOBALS['hylafax_server'];
    $email_sender=$GLOBALS['patient_reminder_sender_email'];
    //consider using admin email = Notification Email Address
    //this must be a fax server approved From: address
    $file_to_attach =   preg_replace('/^file:\/\//', "", $task['DOC_url']);
    $file_name =  preg_replace('/^.*\//', "", $task['DOC_url']);
    $cover_page = "We are processing this file: ".$filepath.'/'.$filename;

    $mail->AddReplyTo($email_sender, $from_name);
    $mail->SetFrom($email_sender, $from_name);
    $mail->AddAddress($to_email); //, $to_name);
    $mail->Subject = $from_fax;
    $mail->MsgHTML("<html><HEAD> <TITLE>Fax Central openEMR</TITLE> <BASE HREF='http://www.oculoplasticsllc.com'> </HEAD><body><div class='wrapper'>".$cover_page."</div></body></html>");
    $mail->IsHTML(true);
    $mail->AltBody = $cover_page;
    $mail->AddAttachment($file_to_attach, $file_name);
    if ($mail->Send()) {
        return true;
    } else {
        $email_status = $mail->ErrorInfo;
        error_log("EMAIL ERROR: ".$email_status, 0);
        return false;
    }
}


/**
 *  This function will display the form_taskman table as requested, by date or by status?
 *  Currently it is not used.
 */
function show_task($ajax_req)
{
    //$_REQUEST['show_task'] = task_id, or all or by date range?
    //Could be a HTML5 table layout?
    //Think about how to display this and should it link to things/documents that were sent, or just status of the request
    //as listed in the field COMMENTS?  Think, think, think...A bear of little brain...
}

/**
 *  This function makes and stores a document that we want to deliver.
 */
function make_document($task)
{
    global $providerNAME;
    global $encounter;
    global $facilityService;

    /**
     * We want to store the current PDF version of this task.
     */
    $query          = "SELECT * FROM users WHERE id=?";
    $to_data        =  sqlQuery($query, array($task['TO_ID']));
    $from_data      =  sqlQuery($query, array($task['FROM_ID']));
    $facility_data  =  $facilityService->getPrimaryBillingLocation();
    $query          = "SELECT * FROM patient_data where pid=?";
    $patientData    =  sqlQuery($query, array($task['PATIENT_ID']));

    $from_fax   = preg_replace("/[^0-9]/", "", $facility_data['fax']);
    $from_name  = $from_data['fname']." ".$from_data['lname'];
    if ($from_data['suffix']) {
        $from_name .=", ".$from_data['suffix'];
    }

    $from_fac   = $from_facility['name'];
    $to_fax     = preg_replace("/[^0-9]/", "", $to_data['fax']);
    $to_name    = $to_data['fname']." ".$to_data['lname'];
    if ($to_data['suffix']) {
        $to_name .=", ".$to_data['suffix'];
    }

    $pt_name    = $patientData['fname'].' '.$patientData['lname'];
    $encounter = $task['ENC_ID'];
    $query="select form_encounter.date as encounter_date,form_eye_mag.id as form_id,form_encounter.*, form_eye_mag.*
            from form_eye_mag ,forms,form_encounter
            where
            form_encounter.encounter =? and
            form_encounter.encounter = forms.encounter and
            form_eye_mag.id=forms.form_id and
            forms.deleted != '1' and
            form_eye_mag.pid=? ";
    $encounter_data =sqlQuery($query, array($encounter,$task['PATIENT_ID']));
    @extract($encounter_data);
    $providerID  =  getProviderIdOfEncounter($encounter);
    $providerNAME = getProviderName($providerID);
    $dated = new DateTime($encounter_date);
    $dated = $dated->format('Y/m/d');
    $visit_date = oeFormatShortDate($dated);
    //$visit_date = $encounter_date;
    $pid = $task['PATIENT_ID'];
    $PDF_OUTPUT='1';

    $filepath = $GLOBALS['oer_config']['documents']['repository'] . $task['PATIENT_ID'];

    //so far we make A "Report", one per encounter, and "Faxes", as many as we need per encounter.
    //So delete any prior report if that is what we are doing. and replace it.
    //If it is a fax, can we check to see if the report is already here, and if it is add it, or do we have to
    // always remake it?  For now, REMAKE IT...

    if ($task['DOC_TYPE'] =='Fax') {
        $category_name = "Communication"; //Faxes are stored in the Documents->Communication category.  Do we need to translate this?
        //$category_name = xl('Communication');
        $query = "select id from categories where name =?";
        $ID = sqlQuery($query, array($category_name));
        $category_id = $ID['id'];

        $filename = "Fax_".$encounter."_".$to_data['lname'].".pdf";
        while (file_exists($filepath.'/'.$filename)) {
            $count++;
            $filename = "FAX_".$encounter."_".$to_data['lname']."_".$count.".pdf";
        }
    } else {
        $category_name = "Encounters - Eye";
        $query = "select id from categories where name =?";
        $ID = sqlQuery($query, array($category_name));
        $category_id = $ID['id'];

        $filename = "Report_".$encounter.".pdf";
        foreach (glob($filepath.'/'.$filename) as $file) {
            unlink($file); //maybe shorten to just unlink($filepath.'/'.$filename); - well this does test to see if it is there
        }

        $sql = "DELETE from categories_to_documents where document_id IN (SELECT id from documents where documents.url like ?)";
        sqlQuery($sql, array("%".$filename));
        $sql = "DELETE from documents where documents.url like ?";
        sqlQuery($sql, array("%".$filename));
    }

    /*$pdf = new HTML2PDF(
        $GLOBALS['pdf_layout'],
        $GLOBALS['pdf_size'],
        $GLOBALS['pdf_language'],
        true, // default unicode setting is true
        'UTF-8', // default encoding setting is UTF-8
        array($GLOBALS['pdf_left_margin'],$GLOBALS['pdf_top_margin'],$GLOBALS['pdf_right_margin'],$GLOBALS['pdf_bottom_margin']),
        $_SESSION['language_direction'] == 'rtl' ? true : false
    );*/

    $pdf = new mPDF(
        $GLOBALS['pdf_language'],
        $GLOBALS['pdf_size'],
        '9',
        '',
        $GLOBALS['pdf_left_margin'],
        $GLOBALS['pdf_right_margin'],
        $GLOBALS['pdf_top_margin'],
        $GLOBALS['pdf_bottom_margin'],
        '', // default header margin
        '', // default footer margin
        $GLOBALS['pdf_layout']
    );
    if ($_SESSION['language_direction'] == 'rtl') {
        $pdf->SetDirectionality('rtl');
    }
    $pdf->shrink_tables_to_fit = 1;
    $keep_table_proportions = true;
    $pdf->use_kwt = true;

    ob_start();
    ?><html>
    <head>
        <TITLE><?php echo xlt('Taskman: Documents in openEMR'); ?></TITLE>
        <style>
            .wrapper {
                margin:20px;
            }
            .col1 {
                font-weight:bold;
                width:100px;
                padding:10px;
                text-align:right;
            }
            .col2 {
                width:375px;
                padding:10px;
            }
        </style>
        <link rel="stylesheet" href="<?php echo $webserver_root; ?>/interface/themes/style_pdf.css" type="text/css">
    </head>
    <body>
    <?php
    if ($task['DOC_TYPE'] == 'Fax') {
        ?>
        <div class='wrapper'>
        <?php echo report_header($task['PATIENT_ID'], 'PDF'); ?>
            <br />
            <br />
            <br />
            <br />
            <br />
            <br />
            <br />
            <hr />
            <table>
                <tr>
                <td class='col1'><?php echo xlt('From'); ?>:</td>
                    <td class='col2'>
                    <?php echo text($from_name); ?><br />

                    </td>
                </tr>
                <tr>
                <td class='col1'><?php echo xlt('Address'); ?>:</td>
                    <td class='col2'>
                    <?php if ($from_data['name']) {
                        echo text($from_data['name'])."<br />";
} ?>
                    <?php echo text($from_data['street']); ?><br />
                    <?php echo text($from_data['city']); ?>, <?php echo text($from_data['state'])." ".text($from_data['zip']); ?>
                        <br />
                    </td>
                </tr>
                <tr>
                    <td class='col1'>
                    <?php echo xlt('Phone'); ?>:
                    </td>
                    <td class='col2'>
                    <?php echo text($from_data['phonew1']); ?>
                    </td>
                </tr>
                <tr>
                    <td class='col1'>
                    <?php echo xlt('Fax'); ?>:
                    </td>
                <td class='col2'><?php echo text($from_data['fax']); ?><br />
                    </td>
                </tr>
                <tr>
                <td class='col1'><?php echo xlt('To'); ?>:</td>
                <td class='col2'><?php echo text($to_name); ?></td>
                </tr>
                <tr>
                <td class='col1'><?php echo xlt('Address'); ?>:</td>
                    <td class='col2'>
                    <?php echo text($to_data['street'])."<br />
				 			".text($to_data['city']).", ".text($to_data['state'])." ".text($to_data['zip']); ?>
                            <br />
                        </td>
                    </tr>
                    <tr>
                        <td class='col1'>
                            <?php echo xlt('Phone'); ?>:
                        </td>
                        <td class='col2'>
                            <?php echo text($to_data['phonew1']); ?>
                        </td>
                    </tr>
                    <tr>
                        <td class='col1'>
                            <?php echo xlt('Fax'); ?>:
                        </td>
                        <td class='col2'>
                            <?php echo text($to_data['fax']); ?>
                        </td>
                    </tr>
                    <tr><td colspan="2"><br /><hr /></td></tr>
                    <tr>
                        <td class='col1'>
                            <?php echo xlt('Comments'); ?>:
                        </td>
                        <td class='col2'><?php echo xlt('Report of visit'); ?>: <?php echo text($pt_name); ?> on <?php echo $visit_date; ?>
                        </td>
                    </tr>
            </table>
        </div>
    <?php
    echo '<page></page><div style="page-break-after:always; clear:both"></div>';
    }

        // 	If the doc_id does exit, why remake it?
        //	We could just add another attachment, stopping here at the coversheet, and adding the doc_name that we sent...
        //	No.  We actually need a physical copy of what we sent, since the report itself can be overwritten.  Keep it legal.
        //	Unless the Report.pdf can be merged with the cover sheet.  Until then, just redo it all.
        echo narrative($pid, $encounter, $task['DOC_TYPE'], $form_id);
        ?>
    </body>
    </html>
    <?php
    global $web_root, $webserver_root;
    $content = ob_get_clean();

    // Fix a nasty html2pdf bug - it ignores document root!
    $i = 0;
    $wrlen = strlen($web_root);
    $wsrlen = strlen($webserver_root);
    while (true) {
        $i = stripos($content, " src='/", $i + 1);
        if ($i === false) {
            break;
        }

        if (substr($content, $i+6, $wrlen) === $web_root &&
          substr($content, $i+6, $wsrlen) !== $webserver_root) {
            $content = substr($content, 0, $i + 6) . $webserver_root . substr($content, $i + 6 + $wrlen);
        }
    }

    // Below is for including style sheet for report specific styles. Left here for future use.
    //$styles = file_get_contents('../css/report.css');
    //$pdf->writeHTML($styles, 1);
    //$pdf->writeHTML($content, 2);

    $pdf->writeHTML($content, 0); // false or zero works for both mPDF and HTML2PDF

    $tmpdir = $GLOBALS['OE_SITE_DIR'] . '/documents/temp/'; // Best to get a known system temp directory to ensure a writable directory.
    $temp_filename = $tmpdir . $filename;
    $content_pdf = $pdf->Output($temp_filename, 'F');
    $type = "application/pdf";
    $size = filesize($temp_filename);

    $return = addNewDocument($filename, $type, $temp_filename, 0, $size, $task['FROM_ID'], $task['PATIENT_ID'], $category_id);
    $task['DOC_ID'] = $return['doc_id'];
    $task['DOC_url'] = $filepath.'/'.$filename;
    $sql = "UPDATE documents set encounter_id=? where id=?"; //link it to this encounter
    sqlQuery($sql, array($encounter,$task['DOC_ID']));

    unlink($temp_filename);

    return $task;
}
